home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Software Vault: The Diamond Collection
/
The Diamond Collection (Software Vault)(Digital Impact).ISO
/
cdr37
/
jm_ni_13.zip
/
FIRST.PPE
(
.txt
)
< prev
next >
Wrap
PCBoard Programming Language Executable
|
1995-03-03
|
2KB
|
216 lines
;------------------------------------------------------------------------------
; .ss.
; `²²'
; .,sS$Ss,,s$ .,sS$$$Ss. .,sS$Ss,,s$ .ss. .sSs.
; .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
; $$$' .$$$' $$$²Sçsµ²' .$$$' .$$$'.$$$' .$$$' `$$b.
; $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$' ;$$$
; `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
; .sS²°$$$²²°"' d²°'
; .$$² .$$'
; $$$.,d$$'
; `²S$$S²'
;------------------------------------------------------------------------------
; P.P.L.X. 2.OO (C)1996 - Lone Runner / AEGiS CoRP'96
;------------------------------------------------------------------------------
; PPE 3.1O (Encryption type I) - Analysis ON - Postprocessing ON
;------------------------------------------------------------------------------
Boolean BOOLEAN001
Boolean BOOLEAN002
Boolean BOOLEAN003
Integer INTEGER001
Integer INTEGER002
Integer INTEGER003
String STRING001
String STRING002
String STRING003
Declare Procedure PROC001()
Declare Procedure PROC002()
Declare Procedure PROC003()
Declare Procedure PROC004()
Declare Procedure PROC005()
Declare Procedure PROC006()
Declare Procedure PROC007()
;------------------------------------------------------------------------------
PROC001()
PROC002()
PROC003()
End
;------------------------------------------------------------------------------
Procedure PROC001()
StartDisp 2
Print "@QOFF@"
If (Exist(PPEPath() + "NAME.CNF")) Then
INTEGER003 = ReadLine(PPEPath() + "NAME.CNF", 1)
Else
INTEGER003 = 1
Endif
STRING003 = "@X0EEnter Your Real First Name?"
If (Exist(PPEPath() + "PROMPTS" + LangExt())) Then
STRING003 = ReadLine(PPEPath() + "PROMPTS" + LangExt(), 1)
Else
STRING003 = ReadLine(PPEPath() + "PROMPTS" + "", 1)
Endif
If (Exist(PPEPath() + PPEName())) DispFile PPEPath() + PPEName() , 1 + 4
Print STRING003 + Chr(32)
EndProc
;------------------------------------------------------------------------------
Procedure PROC002()
:LABEL001
If (BOOLEAN001) Goto LABEL003
BOOLEAN002 = 0
BOOLEAN003 = 0
STRING002 = Upper(Inkey())
If (STRING002 == "") Delay INTEGER003
If (((STRING002 >= Chr(32)) && (STRING002 <= Chr(126))) && (Len(STRING001) < 40)) PROC007()
If ((STRING002 == Chr(8)) && (Len(STRING001) > 0)) PROC006()
If (STRING002 == Chr(13)) PROC005()
If (STRING002 == Chr(27)) PROC004()
If (BOOLEAN002) Then
If (BOOLEAN003) Then
Print Upper(STRING002) + Chr(32), Chr(8)
Goto LABEL002
Endif
Print Lower(STRING002) + Chr(32), Chr(8)
Endif
:LABEL002
Goto LABEL001
:LABEL003
EndProc
;------------------------------------------------------------------------------
Procedure PROC004()
STRING001 = ""
For INTEGER002 = 1 To INTEGER001
Backup 1
Print Chr(32)
Backup 1
Next
INTEGER001 = 0
EndProc
;------------------------------------------------------------------------------
Procedure PROC006()
STRING001 = Left(STRING001, Len(STRING001) - 1)
Dec INTEGER001
BOOLEAN002 = 1
EndProc
;------------------------------------------------------------------------------
Procedure PROC003()
PrintLn
KbdStuff STRING001
EndProc
;------------------------------------------------------------------------------
Procedure PROC005()
STRING001 = STRING001 + STRING002
BOOLEAN001 = 1
EndProc
;------------------------------------------------------------------------------
Procedure PROC007()
STRING001 = STRING001 + STRING002
Inc INTEGER001
If (Right(Left(STRING001, Len(STRING001) - 1), 1) == Chr(32)) BOOLEAN003 = 1
If (INTEGER001 == 1) BOOLEAN003 = 1
BOOLEAN002 = 1
EndProc
;------------------------------------------------------------------------------
;
; Usage report (before postprocessing)
;
; ■ Statements used :
;
; 1 End
; 12 Goto
; 19 Let
; 5 Print
; 1 PrintLn
; 14 If
; 1 DispFile
; 1 StartDisp
; 1 Delay
; 2 Inc
; 1 Dec
; 1 KbdStuff
; 2 Backup
; 7 EndProc
;
;
; ■ Functions used :
;
; 16 +
; 2 -
; 6 ==
; 2 <
; 2 <=
; 1 >
; 3 >=
; 6 !
; 5 &&
; 1 ||
; 4 Len(
; 1 Lower()
; 2 Upper()
; 2 Left()
; 1 Right()
; 12 Chr()
; 1 Inkey()
; 7 PPEPath()
; 3 ReadLine()
; 3 Exist()
; 2 LangExt()
; 2 PPEName()
;
;------------------------------------------------------------------------------
;
; Analysis flags : No flag
;
;------------------------------------------------------------------------------
;
; Postprocessing report
;
; 1 For/Next
; 0 While/EndWhile
; 4 If/Then or If/Then/Else
; 0 Select Case
;
;------------------------------------------------------------------------------
; AEGiS Corp - Break the routines, code against the machines!
;------------------------------------------------------------------------------